﻿'Public Class Timer1

'    Public Shared Sub Main()
'        Dim aTimer As New System.Timers.Timer()
'        AddHandler aTimer.Elapsed, AddressOf OnTimedEvent
'        ' Set the Interval to 5 seconds.
'        aTimer.Interval = 5000
'        aTimer.Enabled = True
'        Console.WriteLine("Press 'q' to quit the sample.")
'        While Console.Read() <> CInt("q")
'        End While
'    End Sub

'    ' Specify what you want to happen when the Elapsed event is raised.
'    Private Shared Sub OnTimedEvent(source As Object, e As Timers.ElapsedEventArgs)
'        Console.WriteLine("Hello World!")
'    End Sub
'End Class

'Public a As Timers.ElapsedEventArgs
'Public b As New ElapsedEventHandler(AddressOf c)
'Public Sub c()

'End Sub


'Public Sub New()
'    AddHandler attackTimer.Elapsed, AddressOf c
'End Sub

Partial Public Class Timer
    Inherits System.Timers.Timer
    Public SpawnID As Integer = 0
    Private HasElapsed2 As Boolean = False


    Public ReadOnly Property HasElapsed As Boolean
        Get
            Return HasElapsed2
        End Get
    End Property

    Public Sub test(ByVal sender As Object, ByVal e As Timers.ElapsedEventArgs) Handles Me.Elapsed
        Me.Stop()
        Me.HasElapsed2 = True
    End Sub

End Class
